; Minor fix in 'textsec-domain-suspicious-p'

* lisp/international/textsec.el (textsec-domain-suspicious-p): Fix
explanation string.

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 394da44e9ab891efa394fe6ef46445444b680297..ab1a742e4648d13b117531eb15b0085e99883227 100644 (file)
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -246,7 +246,7 @@ or use certain other unusual mixtures of characters."
                                (string char) char))))
      domain)
     (unless (puny-highly-restrictive-domain-p domain)
-      (throw 'found "%s is not highly restrictive"))
+      (throw 'found (format "%s is not highly-restrictive" domain)))
     nil))
 
 (defun textsec-local-address-suspicious-p (local)